home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clickx 115
/
Clickx 115.iso
/
software
/
tools
/
windows
/
tails-i386-0.16.iso
/
live
/
filesystem.squashfs
/
usr
/
lib
/
perl5
/
DateTime
/
Helpers.pm
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Perl POD Document
|
2010-07-30
|
422 b
|
28 lines
package DateTime::Helpers;
BEGIN {
$DateTime::Helpers::VERSION = '0.61';
}
use strict;
use warnings;
use Scalar::Util ();
sub can {
my $object = shift;
my $method = shift;
return unless Scalar::Util::blessed($object);
return $object->can($method);
}
sub isa {
my $object = shift;
my $method = shift;
return unless Scalar::Util::blessed($object);
return $object->isa($method);
}
1;